home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-05-04 | 1.5 KB | 59 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="7"
- "COUNT"="3"
- "UIPATH"="System\File System\Windows 9x/ME Options\Compression"
- "NAME"="Auto Mount Compressed Drives"
- "VERSION"="1.06"
- "OSVERSION"="10101"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Do not use compressed drives"
- "TEXT 2"="Mount manually"
- "TEXT 3"="Mount automatically"
- "DESCRIPTION 1"="Automatically mount compressed drive not present when system started, e.g. compressed floppy or zip disk."
- "COMMENT 1"=" "
- "COMMENT 2"="Run Win98/98SE on 250MB HD --> use Drvspace.exe"
- "AUTHOR"="Ojatex@aol.com"
- "CONTACTURL"="http://members.aol.com/ojatex/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
-
- 'Declaration of some constants
- sP="HKLM\System\CurrentControlSet\Control\FileSystem\AutoMountDrives"
-
- 'Called when the Plugin is started
- SUB Plugin_Initialize
- i=RegReadValue(sP)
- if IsEmpty(i) then
- SetUIElement 1,true
- else
- if i="" then SetUIElement 1,true
- if i="0" then SetUIElement 2,true
- if i="1" then SetUIElement 3,true
- end if
- END SUB
-
- 'Called when the Plugin should validate the Data the user has entered
- SUB Plugin_CheckData(ElementIndex)
- END SUB
-
- 'Called when the Plugin should apply the changes
- SUB Plugin_Apply(ElementIndex,ElementSubIndex)
- if GetUIElement(1)=true then
- s=""
- else
- if GetUIElement(2)=true then
- s="0"
- else
- s="1"
- end if
- end if
-
- Call RegWriteValue(sP,s,1)
-
-
- END SUB
-
- 'Called when the Plugin is about to be removed from memory
- SUB Plugin_Terminate
-
- END SUB
-